(shell-replace-by-expanded-directory):

If there's already a / at the end, don't add one.

diff --git a/lisp/shell.el b/lisp/shell.el
index fb427aa9f72dc5e1cbc67c931ccffac5da09a604..0b2b7543218588cb00fafd029ec011b362022a3e 100644 (file)
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -993,7 +993,7 @@ Returns t if successful."
        (let ((stack (cons default-directory shell-dirstack))
              (index (cond ((looking-at "=-/?")
                            (length shell-dirstack))
-                          ((looking-at "=\\([0-9]+\\)")
+                          ((looking-at "=\\([0-9]+\\)/?")
                            (string-to-number
                             (buffer-substring
                              (match-beginning 1) (match-end 1)))))))